home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aaf.d64 / src.version < prev    next >
Text File  |  2007-02-28  |  393b  |  27 lines
  1. ;
  2. VERSTC LDA #VERST3-VERST2+2
  3.  JSR EXCGST
  4.  LDY #00
  5. VERST1 LDA VERST2,Y
  6.  STA (COPY2),Y
  7.  INY
  8.  CPY #VERST3-VERST2
  9.  BNE VERST1
  10.  LDA #00
  11.  STA (COPY2),Y
  12.  LDA #VERST3-VERST2
  13.  INY
  14.  STA (COPY2),Y
  15.  RTS
  16. ;
  17. VERST2 .BYT ' 1.01 STRINGS PACKAGE'
  18.  .BYT ' BY ╥ICHARD ┬AIN'
  19.  .BYT 13
  20.  .BYT '      QUICKSORT CODE '
  21.  .BYT ' BY ╥OBERT ╥OSS'
  22.  .BYT 13
  23.  .BYT '      STRING CODE    '
  24.  .BYT ' BY ─AVID ╙TIDOLPH'
  25. VERST3
  26. ;
  27.